object frmAdd: TfrmAdd Left = 275 Top = 220 ActiveControl = editName BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Add Wizard' ClientHeight = 369 ClientWidth = 577 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object bevelLine: TBevel Left = 8 Top = 320 Width = 561 Height = 9 Shape = bsBottomLine end object Panel2: TPanel Left = 200 Top = 16 Width = 353 Height = 297 BevelOuter = bvNone TabOrder = 7 Visible = False object shapeColor: TShape Left = 272 Top = 240 Width = 73 Height = 25 Brush.Color = clYellow end object imageBody: TImage Left = 264 Top = 32 Width = 79 Height = 79 Stretch = True end object Label2: TLabel Left = 8 Top = 32 Width = 241 Height = 49 AutoSize = False Caption = 'You can assign an image for your body. If you don'#39't have one han' + 'dy, you can use the default image to the right.' end object Label12: TLabel Left = 8 Top = 96 Width = 241 Height = 49 AutoSize = False Caption = 'If you have a BMP file which you would like to use, simply click' + ' the '#39'Bro&wse...'#39' button to choose the file.' end object Label15: TLabel Left = 8 Top = 184 Width = 337 Height = 49 AutoSize = False Caption = 'To associate a tail with this body, click the '#39'&Display Tail'#39' ch' + 'eckbox. You can also click the '#39'&Color'#39' button to choose the col' + 'or of the tail.' end object checkboxTail: TCheckBox Left = 8 Top = 240 Width = 129 Height = 25 Caption = '&Display Tail:' TabOrder = 1 end object butColor: TButton Left = 192 Top = 240 Width = 75 Height = 25 Caption = '&Color...' TabOrder = 2 OnClick = butColorClick end object butBrowse: TButton Left = 264 Top = 118 Width = 81 Height = 27 Caption = '&Bro&wse...' TabOrder = 0 OnClick = butBrowseClick end end object Panel3: TPanel Left = 200 Top = 16 Width = 353 Height = 297 BevelOuter = bvNone TabOrder = 6 Visible = False object lblXPos: TLabel Left = 8 Top = 184 Width = 89 Height = 16 AutoSize = False Caption = '&X Position:' FocusControl = editXPosition end object lblYpos: TLabel Left = 8 Top = 224 Width = 89 Height = 16 AutoSize = False Caption = '&Y Position:' FocusControl = editYPosition end object lblzPos: TLabel Left = 8 Top = 264 Width = 89 Height = 16 AutoSize = False Caption = '&Z Position:' FocusControl = editZPosition end object Label13: TLabel Left = 8 Top = 56 Width = 89 Height = 16 AutoSize = False Caption = '&Mass:' end object Label14: TLabel Left = 8 Top = 96 Width = 89 Height = 16 AutoSize = False Caption = '&Radius:' end object Label16: TLabel Left = 8 Top = 8 Width = 337 Height = 33 AutoSize = False Caption = 'Use the following text boxes to set the &Mass and the &Radius of' + ' the body.' end object Label17: TLabel Left = 8 Top = 136 Width = 337 Height = 33 AutoSize = False Caption = 'Edit the following text boxes in order to edit the X, Y, and Z p' + 'ositions of the body relative to the origin.' end object lblMassUnit: TLabel Left = 281 Top = 58 Width = 15 Height = 16 Caption = 'kg' end object lblRadiusUnit: TLabel Left = 281 Top = 98 Width = 34 Height = 16 Caption = 'meter' end object lblYPositionUnit: TLabel Left = 281 Top = 226 Width = 34 Height = 16 Caption = 'meter' end object lblXPositionUnit: TLabel Left = 281 Top = 186 Width = 34 Height = 16 Caption = 'meter' end object lblZPositionUnit: TLabel Left = 281 Top = 266 Width = 34 Height = 16 Caption = 'meter' end object editXPosition: TEdit Left = 96 Top = 182 Width = 180 Height = 24 TabOrder = 2 Text = '0' end object editYPosition: TEdit Left = 96 Top = 222 Width = 180 Height = 24 TabOrder = 3 Text = '0' end object editZPosition: TEdit Left = 96 Top = 262 Width = 180 Height = 24 TabOrder = 4 Text = '0' end object editMass: TEdit Left = 96 Top = 54 Width = 180 Height = 24 TabOrder = 0 Text = '1' end object editRadius: TEdit Left = 96 Top = 94 Width = 180 Height = 24 TabOrder = 1 Text = '1' end end object Panel4: TPanel Left = 200 Top = 16 Width = 353 Height = 297 BevelOuter = bvNone TabOrder = 8 Visible = False object Label24: TLabel Left = 8 Top = 40 Width = 337 Height = 33 AutoSize = False Caption = 'Edit the following text boxes in order to edit the X, Y, and Z v' + 'elocities of the body.' end object lblXVel: TLabel Left = 8 Top = 88 Width = 89 Height = 16 AutoSize = False Caption = 'X &Velocity:' FocusControl = editXVelocity end object lblYvel: TLabel Left = 8 Top = 128 Width = 89 Height = 16 AutoSize = False Caption = 'Y V&elocity:' FocusControl = editYVelocity end object lblZVel: TLabel Left = 8 Top = 168 Width = 89 Height = 16 AutoSize = False Caption = 'Z Vel&ocity:' FocusControl = editZVelocity end object Label18: TLabel Left = 8 Top = 224 Width = 337 Height = 33 AutoSize = False Caption = 'Now press the '#39'&Finish'#39' button to add your new body to the other' + 's in your current system.' end object lblXVelocityUnit: TLabel Left = 281 Top = 90 Width = 24 Height = 16 Caption = 'm/s' end object lblYVelocityUnit: TLabel Left = 281 Top = 130 Width = 24 Height = 16 Caption = 'm/s' end object lblZVelocityUnit: TLabel Left = 281 Top = 170 Width = 24 Height = 16 Caption = 'm/s' end object editXVelocity: TEdit Left = 96 Top = 86 Width = 180 Height = 24 TabOrder = 0 Text = '0' end object editYVelocity: TEdit Left = 96 Top = 126 Width = 180 Height = 24 TabOrder = 1 Text = '0' end object editZVelocity: TEdit Left = 96 Top = 166 Width = 180 Height = 24 TabOrder = 2 Text = '0' end end object butCancel: TButton Left = 464 Top = 336 Width = 97 Height = 26 Cancel = True Caption = '&Cancel' TabOrder = 3 OnClick = ButtonClick end object butFinish: TButton Left = 353 Top = 336 Width = 97 Height = 26 Caption = '&Finish' Default = True Enabled = False TabOrder = 2 OnClick = ButtonClick end object butNext: TButton Left = 256 Top = 336 Width = 97 Height = 26 Caption = '&Next >' Enabled = False TabOrder = 1 OnClick = ButtonClick end object butBack: TButton Left = 159 Top = 336 Width = 97 Height = 26 Caption = '< &Back' Enabled = False TabOrder = 0 OnClick = ButtonClick end object panelImage: TPanel Left = 16 Top = 16 Width = 169 Height = 297 BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 4 object imageAdd: TImage Left = 0 Top = 0 Width = 165 Height = 293 Align = alClient Center = True Picture.Data = {} end end object Panel1: TPanel Left = 200 Top = 16 Width = 353 Height = 297 BevelOuter = bvNone TabOrder = 5 object Label1: TLabel Left = 8 Top = 112 Width = 89 Height = 16 AutoSize = False Caption = 'Body N&ame:' FocusControl = editName end object Label3: TLabel Left = 8 Top = 24 Width = 337 Height = 65 AutoSize = False Caption = 'Creating a new body is easy! Just type in the name below (exampl' + 'e: Mars). If you don'#39't know all the properties of the body right' + ' now, you can click the '#39'&Finish'#39' button, and the body will be a' + 'dded as is.' end object Label4: TLabel Left = 8 Top = 152 Width = 337 Height = 49 AutoSize = False Caption = 'You will be able to change all the properites when you are ready' + ', using the '#39'Properties'#39' window (accessable from the '#39'Body'#39' menu' + ' in the main window).' end object Label11: TLabel Left = 8 Top = 216 Width = 337 Height = 65 AutoSize = False Caption = 'If you already know what the correct properties for this body ar' + 'e, click the '#39'&Next'#39' button to continue. You will still be able ' + 'to edit the body properties later if you so desire.' end object editName: TEdit Left = 96 Top = 110 Width = 249 Height = 24 TabOrder = 0 OnChange = editNameChange end end object sysOpen: TOpenDialog DefaultExt = 'bmp' FileEditStyle = fsEdit Filter = 'Picture Files (*.bmp, *.dib)|*.bmp;*.dib|All Files (*.*)|*.*' Title = 'Body Picture - Open' Left = 8 Top = 336 end object sysColor: TColorDialog Ctl3D = True Left = 40 Top = 336 end end